home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / progs / prelude / PreludeSymbol.hs < prev    next >
Encoding:
Text File  |  1994-09-27  |  575 b   |  22 lines  |  [TEXT/YHS2]
  1. -- This is used in the Dynamic Typing and is thus placed in the Prelude.
  2. -- These functions are not exported
  3.  
  4. module Symbol(Symbol,symbolToString,stringToSymbol,genSymbol) where
  5.  
  6. {-# Prelude #-}
  7.  
  8. import SymbolPrims
  9.  
  10. data Symbol = Symbol
  11.  
  12. instance Eq(Symbol) where
  13.   x == y   = eqSymbol x y
  14.  
  15. instance Text(Symbol) where
  16.   showsPrec p s = showParen (p > 9) (showString "symbol " .
  17.                                      shows (symbolToString s))
  18.  
  19.   readsPrec p = readParen (p > 9)
  20.      (\r -> [(stringToSymbol s, t) | ("symbol",s1) <- lex r,
  21.                      (s,t)         <- reads s1])
  22.